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Fir! Worth Scene 

Format Changes 

in the Microcomputer 

Newsletter 

During the next two months you will see a 
few format changes in the Microcomputer 
Newsletter. We hope to institute several 
regular features, including FORT WORTH 
SCENE and TRS-80 CLASSROOM. We 
will also give you a short index for each is- 
sue, and publish an annual cumulative in- 
dex. The first of these cumulative indexes 
will be published in the December issue, 
and will cover all newsletters published 
through December 1979. TRS-80 CLASS- 
ROOM will begin several series of articles 
designed specifically for users of Level I, 
Level II, TRSDOS, assembly language, 
and Model II. As soon as FORTRAN is re- 
leased we will begin articles on FORTRAN 
as well. One other change which we will 
make is to begin a Volume #, Issue # for- 
mat to help you keep track of Newsletters. 
Our thanks to Brian Jaffee of Trans-World 
Agency, Inc. for this suggestion. 

It is our intention to publish one Newsletter 
every month, and to make them something 
you will save for reference. We are remov- 
ing direct advertising from the Newsletter 
itself. We will continue to bring you infor- 
mation and reviews on new hardware and 
software, but this will be done in a sepa- 
rate pull-out section. 

If you have any suggestions on content or 
form for the Microcomputer Newsletter, 
please direct them to us at: 

MICROCOMPUTER NEWSLETTER 

700 ONE TANDY CENTER 

FORT WORTH, TEXAS 76102 



Previous Newsletters 

AUG/SEPT 1979— In the article on screen 
graphics to lineprinterfrom Mr. Thorpe, we 
should have commented that the program 
prints 1 28 columns. If your printer does not 
print that many columns, you will lose part 
of the screen. 

JULY 1979 — Concerning the two pro- 
grams to compact and speed cassette I/O 
on Level-ll, one change you can make is 
to eliminate lines 40 and 130, then make 
the following changes: 

(Continued on page 4) 




TRS-80® MODEL ii SOFTWARE- Each package includes a deluxe 
binder with diskette holder, diskette(s) and complete instructions. 



The following dates are the current projec- 
tions for the availability of TRS-80 Model II 
software: 

26-4501 General Ledger End Oct. 

26-4502 Inventory Control End Dec. 

26-4503 Payroll January 

26-4504 Accts. Receivable January 

26-4506 Mailing List Mid-Nov. 



Integrating TRSDOS® 2.2 



In order to integrate the TRSDOS 2.2 re- 
lease information into our current TRSDOS 
manual, renumber the release pages as 
follows: 
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Computer Services Address and 
Phone Numbers 

Computer Services 

900 Two Tandy Center 

Ft. Worth, Texas 76102 

Computer Services 

Phone Numbers: 

1-800-433-1679 (WATS except 

Texas) 
1-800-772-5914 (WATS inside 

Texas) 
1-817-390-3583 (Switchboard) 

All TRS-80 related calls and mail 
should be directed to the above ad- 
dress, or one of the above phone 
numbers. Computer Services is 
equipped with knowledgeable peo- 
ple who are there to answer your 
questions. If they do not have an im- 
mediate answer, they have the inter- 
nal contacts to get the answers in a 
minimum amount of time. Questions 
sent to the Newsletter must be sent 
to Computer Services via internal 
mail, which simply delays your re- 
sponse. 
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TRS-80 users have expressed confusion 
over the cause and cure of "garbage dig- 
its" which appear in double precision num- 
bers. The purpose of this article is to pre- 
cisely describe the problem and suggest 
some remedies. 

Try typing the following into a Level II or a 
Disk TRS-80; 



>A = .1 
>B = .5 
>PRINTA,B 
.1 .5 

This is, of course, what you would expect. 
Now enter .1 and .5 as double precision 
values: 

>A# = .1 

>B# = .5 

>PRINTA#,B# 
.1000000014901161 .5 

.1 (Which can not be represented exactly 
in binary) did not convert to a double pre- 
cision value correctly. 

Here are three methods to make sure that 
BASIC knows you want a double precision 
value. Each of the following three lines is 
a different method. 

>A# = 0.1D 

>B# = 0.1 00000000 

> A = .1 :C# = VAL(STR$(A)) 

>PRINTA#,B#,C# 

.1 .1 .1 




The first two methods are for numbers you 
actually type in (as part of the BASIC pro- 
gram). You must put a 'D' on the end of the 
number, or type more than seven digits. 
This will make BASIC use a double preci- 
sion value. 

The third method is the one most people 
miss. Here you force BASIC to take a sin- 
gle precision variable and re-interpret the 
value as double precision. Integer values 
(whole numbers) are no problem in double 
precision arithmetic. Look at the following 
program: 

10HOURS = 12 
20 OVERTIME = 

30 IF HOURS>8 THEN OVERTIME = 
HOURS-8:HOURS = HOURS- 
OVERTIME 
40 RATE = 5.65 
50 R# = VAL(STR$(RATE)) 
60 H# = VAL(STR$(HOURS)) 
70 0# = VAL(STR$(OVERTIME)) 
80 PAY#= H# * R# + 0# * 2 * R# 
90 PRINT PAY# 

On lines 10 through 40, only single preci- 
sion values (and whole numbers) are 
used, so no problems will occur. But in line 
80, we want double precision PAY# out of 
single precision HOURS, OVERTIME, and 
RATE. This is where problems arise. In 
lines 50 to 70, we fix all the single precision 
numbers into double precision values. Be- 
cause of lines 50 to 70, lines 80 and 90 will 
produce the correct gross pay. Note that 
the '2' is used on line 80 with no ill effect. 
Remember, numbers without fractional 
parts (nothing after the decimal point) will 
not bother double precision arithmetic. If 
the overtime rate were 1 .5 instead of 2, A 
'1.5D' should be used to insure that the 
correct double precision value is used. 

Disk BASIC users can use a 'DEF FN' 
statement to make programming easier. 
The following program repeats the one 
above, but uses a 'DEF FN' function 
which fixes double precision numbers: 

5 DEF FNX#(A) = VAL(STR$(A)) 

10HOURS = 12 

20 OVERTIME = 

30 IF HOURS >8 THEN 
OVERTIME = 

HOURS-8:HOURS = HOURS- 
OVERTIME 

40 RATE = 5.65 

50 PAY#= FNX#(HOURS)* 

FNX#(RATE) + FNX#(OVERTIME) 
*2*FNX#(RATE) 

60 PRINT PAY# 




Simply put the FNX#( ) around any vari- 
able or constant that has a decimal por- 
tion. If you are experienced in binary arith- 
metic, you should be able to tell when you 
need to apply this fix function. When in 
doubt, put FNX# around any number you 
question. 

Why do "garbage digits" appear? The an- 
swer lies in the way BASIC stores num- 
bers and converts them from single preci- 
sion to double precision. 

Recall our first two numbers, A and B. The 
internal hexadecimal representations of 
these two numbers are: 



Decimal 
.1 
.5 



Hexadecimal 



125 
128 



76 




204 




205 




Note the zeros on the end of the .5 repre- 
sentation in hexadecimal. This means that 
.5 is not an infinite repeating fraction in 
hexadecimal (or binary). But, when .1 is 
converted to hexadecimal, it becomes an 
infinite repeating fraction. In binary it is 
0.11001100110011001100 ... Now let's 
look at the hexadecimal values for A# and 
B#. 



Hexadecimal 



Decimal 

.1 = 125 76 204 205 

.5 = 128 

(4 zeros added to end) 

When BASIC converts a single precision 
number (.1 or .5) to a double precision 
value, you'll note that four zeros were sim- 
ply added to the end of the single precision 
representation. Since .5 was not an infinite 
repeating binary fraction (It has zeros on 
the end), adding more zeros to the end 
does not affect the value. The number .1, 
however, is no longer correct. The correct 
hexadecimal value is: 

125 76 204 204 204 204 204 205. 
Why didn't BASIC figure out that the last 
four numbers were not zeros? The answer 
is , you can't get something out of noth- 
ing. BASIC must be explicitly told what the 
last four numbers are, or it will use zeros 
(because BASIC simply doesn't know). 



Budget Management 
(26-1603) Note 

Budget Management requires a 110 
column (or wider) printer, such as 
our Line Printer III (26-1156) or Line 
Printer I (26-1152). 
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User Programs and Hin 

Mr. Gerard M. Foley of Canal Winchester, 
Ohio sent us these program lines to be 
used with our program to merge two cas- 
sette programs (July 1979). These two 
subroutines, and appropriate modifica- 
tions from you to fit your own data, will al- 
low you to enter data into a program, add 
program lines, modify the program and not 
lose the data you have entered! Almost 
anyone who has developed a program 
knows how frustrating it can be to enter all 
of the data into a program only to find that 
a close quote mark was left out of a PRINT 
statement. As soon as you put the close 
quote in, BASIC erases all of your data 
and you have to start reentering. 

The following are quotes from Mr. Foley's 
letter: 

"Before entering your program, reserve 
space by typing a number after "MEMORY 
SIZE?". If you type 30000 (in a 16K Level 
II machine) you will reserve space for more 
than 600 single precision numbers. Then 
enter the following program, in addition to 
the program you are developing (see 
"How to Merge Two Programs" Page 2, 
July 1979 Newsletter): 

60000I = 0:A = J 

60010 GOSUB 60200 

60020 FOR i= 1 TO J 

60040 A = W(I) 

60050 GOSUB 60200 

60060 NEXT I 

60070 FOR I = J + 1 T0 2\J 

60080A = X(I-J) 

60090 GOSUB 60200 

60100 NEXT I 

60110 RETURN 

60200 JK = 4*1 + 30000 
60210 FOR 11= TO 3 
60220 POKE(JK + 11), 

PEEK(VARPTR(A) + I1) 
60230 NEXT 11 
60240 RETURN 

61000 1 = 

61010 GOSUB 61200 

61020 J = A 

61030 FOR 1 = 1 TO J 

61040 GOSUB 61200 

61050W(I) = A 

61060 NEXT I 

61070 FOR l = J + 1 T0 2\J 

61080 GOSUB 61200 

61090X(1- J) = A 

61100 NEXT I 

61110 RETURN 

61200 A = 

61210 JK = 4*1 + 30000 

61220 FOR 11=0 TO 3 

61230 POKE(VARPTR(A) + l1), 

PEEK(JK + I1) 
61240 NEXT 11 
61250 RETURN 



"J items of data are stored in each of the 
two arrays W(l) and X(l). When subroutine 
60000 is called, the number J and the ar- 
rays are stored in protected memory from 
30000 on up. After program modification, 
if subroutine 61000 is called, the data will 
be restored to J and the two arrays." 

"If you wish to store and recover only one 
array, delete 60070-60100 and 61070- 
61 100. If you wish to store more than two 
arrays, add additional 'FOR' loops like 
60070-601 00 and 61 070-61 1 00." 

"In using the programs, as soon as valid 
data have been entered in the main pro- 
gram, whether from the keyboard or from 
a cassette, call subroutine 60000 above to 
save it. Whenever a valid alteration to the 
data has been made, call 60000 again. 
Then if you wish to remove a bug, call 
61000 after the change. Remember that 
'CLEAR' statements will erase the data 
from your main program (but not from the 
protected storage), so put the GOSUB 
61000 after such statements." 

"If you decide to reserve more or less stor- 
age by entering a number other than 
30000 after "MEMORY SIZE?", put the 
same number in statements 60200 and 
61210 above. Multidimensional arrays can 
be saved and recovered by appropriate 
modifications to the 'FOR' loops 60030- 
601 00 and 61 030-61 100." 

Mr. Foley has set up his routines to handle 
single precision numeric arrays. If you 
study the 'VARPTR' statement, you will 
see that only minor modifications are 
needed to handle integer and double pre- 
cision numerics, and that the same type 
routine will also allow you to save alpha- 
numeric data. This routine should certainly 
save some of us a lot of time. Lines 5-200 
provide you with a short program to dump 
400 single precision numbers and recover 
them. 

5 CLEAR:DIM W(200),X(200) 

10 FOR 1 = 1 TO 200 

15 PRINT! 

20W(I) = ! 

30 X(l) = i 

40 NEXT 

45 J = 200 

50 GOSUB 60000 

60 STOP 

65 CLEAR 

70 DIM W(200),X(200) 

80 FORI = 1 TO 200 

90 PRINTW(I);X(I), 
100 NEXT 
110 GOSUB 61000 
120 FOR 1 = 1 TO 200 
130PRINTW(I);X(I), 
140 NEXT 
200 END 



model II User's Note 

Using a Serial Printer 
With TRSDOS 

Output to a serial printer can easily be ac- 
complished with TRSDOS 1.1 and the fol- 
lowing routine called "PRINTER/BAS." 
Note: 'LPRINT and 'LUST will not func- 
tion with a serial printer. These features 
will be implemented in a later version of 
TRSDOS. 

To Use "PRINTER/BAS": 

1. Under TRSDOS, initialize Channel A 
with "SETCOM," using the parameters 
which fit your printer. 

2. "LOAD COMSUB" under TRSDOS. 

3. When you call "BASIC" reserve mem- 
ory for "COMSUB" by using: BASIC 
-M:61000 

"PRINTER/BAS" should be included, as a 
subroutine, in any BASIC program which 
will output to a serial printer. Before using 
"GOSUB 10000" you must set two varia- 
bles. "WW" is an integer. If "WW" is any 
positive number, the string "WW$" will be 
output to the printer. If "WW" is zero, the 
program will output a carriage return and 
line feed (if you do not need the line feed, 
DELETE 10210). If "WW" is a negative 
value, the program will output "WW" 
spaces to the printer. In effect, a negative 
"WW" serves as a TAB function. The 
value "WW$" contains the information to 
be printed (up to 255 characters). 

"PRINTER/BAS" 



10000 REM 

10010 REM 

10015 REM 

10020 REM 

10025 REM 

10030 REM 



10040 REM 
10045 REM 
10050 REM 



10060 REM 

10070 REM 

10080 REM 

10090 REM 

10100 REM 

10105 REM 

10110 REM 

10120 REM 

10130 REM 

10140 REM 

10150 REM 

10160 REM 



ENTRY INTO THIS 
ROUTINE RE- 
QUIRES THAT WW$ 
CONTAIN THE 

CHARACTER OR 
STRING TO BE 
PRINTED. 

THE VARIABLE WW 
IS USED TO DE- 
TERMINE THE 
FOLLOWING: 

IF WW IS NEGATIVE 
— OUTPUT 
ABS(WW) SPACES 

IF WW IS ZERO- 
OUTPUT CAR- 
RIAGE RETURN 
LINE FEED 

IF WW IS POSITIVE — 
OUTPUT WW$ 
STRING 



(Continued on page 4) 



COMPUTER MERCHANDISING 

700 ONE TANDY CENTER 
FORT WORTH, TEXAS 76102 



IF UNDELIVERABLE DO NOT RETURN 



FORT WORTH SCENE 
(Continued from page 1) 

60 IF LEN(B$ + STR(D(!)) + A$) 
>240 THEN PRINT#-1, N,B$: 

R*5 = "" 

80 NEXT: IF B$<>"" THEN 
PRINT#-1,N,B$ 
140INPUT#-1,NN, B$: 

N = LEN(B$):LF = 1 

These changes will give you one less re- 
cord to write, and increase the number of 
items stored in each record. 



One other thing, we found that we needed 
to 'CLEAR 1000' in order to make the pro- 
gram run. 



lodel II User's Note 

(Continued from page 3) 



10170 
10180 
10190 
10200 
10210 



10220 
10230 
10240 

10250 
10260 
10270 
10280 
10290 
10300 
10310 



DEFUSR0 = &HEF80 

IF SGN (WW) = - 1 THEN 1 0230 

IF SGN(WW)<> THEN 10270 

RX$ = USR0(CHR$(13)) 

RX$ = USR0(CHR$(1 0)):REM 

IF NO LINE FEED NEEDED, 

DELETE THIS LINE 

RETURN 

FORRQ = 1 TOABS(WW) 

RX$ = USR0(CHR$(32)) :REM 

BLANKS 

NEXT RQ 

RETURN 

FOR RQ = 1 TO LEN(WW$) 

RP$ = MID$(WW$,RO,1) 

RX$ = USR0(RP$) 

NEXT RQ 

RETURN 



Model I to Model Bl 
Transfer Software 
Now Available 

Software (ACT-0131 $20.00) is now avail- 
able from National Parts which enables 
you to transfer software from TRS-80 
Model I to TRS-80 Model II. This software 
allows you to transfer BASIC programs 
which have been saved in ASCII, data 
files, and machine language programs. 
The software set includes a 5V2" disk for 
Model I and an 8" disk for Model II. The 
minimum Model I configuration is a one 
disk 32K system with RS-232C. 

Please note that while you may transfer 
Model I BASIC programs to Model II, they 
will need some modification before they 
will run properly. The main items which re- 
quire attention are: 

1. 'IF-THEN' Statements — Model II re- 
quires the use of THEN' where it was 
optional on Model I. 

2. 'PRINTS' Statements — Most of your 
'PRINT@' statements will need to be 
changed to properly format screens on 
the larger Model II video. 

3. Drive Specifications — At least for a 
while, most Model II users will be run- 
ning single disk systems. This requires 
that you change any drive specs which 
refer to drives other than drive (zero). 

4. All references to 'PEEK', 'POKE', 'INP', 
or 'OUT' must be removed. These com- 
mands are not needed in Model II BA- 
SIC. Instead, TRSDOS supervisor calls 
are available which will allow you to per- 
form the same functions. 

Other changes can be made which will en- 
hance your programs and take better ad- 
vantage of Model ll's capabilities, but the 
four mentioned above are required if your 
software is to run properly. 

Transfer of programs between Model I and 



Model II requires a special cable and ter- 
minator plug. These items are described in 
your Model II manual. 

The terminator plug is described on page 
1 of the Corrections to Model II Owner's 
Manual dated 8/22/79 which is included 
with all Model II Manuals. The cable is de- 
scribed on page 144 of the Model II 
TRSDOS Manual and updated on page 1 
of the Corrections. 

These items will be available from National 
Parts (AW-2440 $71 .00) in approximately 
45 days. 

If you do not wish to purchase these items 
due to the relatively small amount of trans- 
fering that you need to do, contact your 
nearest Radio Shack Computer Depart- 
ment or Computer Center. These facilities 
are being set-up to help you make the 
Model I to Model II transfers. The person- 
nel in these locations will be familiar with 
the software, and with proper transfer 
techniques, and will be happy to get you 
started and provide any assistance you 
may need. 

Your local Radio Shack store will be able 
to order the transfer materials for you, or 
provide you with the location of the nearest 
Computer Department or Computer Cen- 
ter. 



Inventory Control Users 
Please Note: 

Inventory Control System I, (26- 
1553) requires a 132-column printer. 
If you are about to purchase a line 
printer to go with ICS, do not buy our 
Line Printer II (26-1154). Instead, 
buy our Line Printer III (26-1156) or 
Line Printer I (26-1152). 

The printouts in the ICS manual ap- 
pear to be 80 columns wide, be- 
cause they were printed on a Line 
Printer I (26-1152) with character 
width narrowed. 



